home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / info-service / gopher / Unix / gateways / gonnrp / build-newsgroups-db < prev    next >
Encoding:
Text File  |  1993-05-28  |  442 b   |  17 lines
  1. #!/usr/local/bin/perl
  2. # Chad Adams  03-Jan-93  build newsgroups dbm file for gonntp
  3. # build-newsgroups-db /usr/local/news/newsgroups dotall-file
  4. #
  5. #   *********** run this with "rebuild" script *************
  6. #
  7. dbmopen(nga, "../usr/lib/newsgroups", 0644);
  8. while(<>) {
  9.     chop;
  10.     ($ng, @rest) = split(/[ \t]/);
  11.     while($#rest > -1 && @rest[0] eq '') { shift(@rest) }
  12.     $d = join(' ', @rest);
  13.     print "$ng - >$d<\n";
  14.     $nga{$ng} = $d;
  15. }
  16. dbmclose(nga);
  17.